home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s4.arc / TESTVERW.MOD < prev    next >
Encoding:
Text File  |  1987-11-16  |  2.1 KB  |  48 lines
  1. PROCEDURE Test_Version_Warning;
  2.  
  3. VAR
  4.    Ch: CHAR;
  5.  
  6. BEGIN (* Test_Version_Warning *)
  7. {
  8.    Do_Status_Line   := FALSE;
  9.    Do_Status_Time   := FALSE;
  10.  
  11.    TextColor     ( WHITE );
  12.    TextBackGround( BLACK );
  13.  
  14.    WRITELN;
  15.    WRITELN('***** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING *****');
  16.    WRITELN('*                                                                         *');
  17.    WRITELN('*     This is a TEST VERSION of PibTerm, NOT a production version.        *');
  18.    WRITELN('*     Please report problems to:                                          *');
  19.    WRITELN('*                                                                         *');
  20.    WRITELN('*          Philip R. Burns                                                *');
  21.    WRITELN('*          Vogelback Computing Center                                     *');
  22.    WRITELN('*          Northwestern University                                        *');
  23.    WRITELN('*          2129 Sheridan Road                                             *');
  24.    WRITELN('*          Evanston, IL.  60208                                           *');
  25.    WRITELN('*                                                                         *');
  26.    WRITELN('*     You may also find out about the most recent production of           *');
  27.    WRITELN('*     PibTerm by writing to the same address.                             *');
  28.    WRITELN('*                                                                         *');
  29.    WRITELN('*     NO PHONE CALLS PLEASE!                                              *');
  30.    WRITELN('*                                                                         *');
  31.    WRITELN('***** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING *****');
  32.    WRITELN;
  33.  
  34.    IF ( ParamCount = 0 ) THEN
  35.       BEGIN
  36.  
  37.          WRITE('Hit any key to continue ... ');
  38.  
  39.          Read_Kbd( Ch );
  40.          IF ( ORD( Ch ) = ESC ) AND PibTerm_KeyPressed THEN
  41.             Read_Kbd( Ch );
  42.  
  43.       END
  44.    ELSE
  45.       DELAY( Two_Second_Delay );
  46. }
  47. END   (* Test_Version_Warning *);
  48.